# Import the data including the healthy controls 
Data <- read_excel("C:/deskt/DIR/7th/Desktop/Biostatistics Vasculitis/Data.xlsx", 
                   sheet = "SubSet Data")

# New data frame excluding the healthy controls 
Data2 <- Data[!Data$`Patient Subgroups` == "Healthy Control",]

Submitted graphs inspect the quantitative values per subgroup. Please find in the provided document:

  • Bar graphs for the quantitative summary visualisation
  • Box plots for demonstrating the locality, spread and skewness and box plots with jitter for a better inspection of the diversion of data
  • Q-Q plots to investigate the distribution
  • Violin plots which are a mix of a box plot and a kernel density plot, show peaks in the data as well as the locality, spread and skewness

The sub-groups include:

  • Patients with skin-limited disease (n=21)
  • Patients with renal involvement (n=20)
  • Patients with gastrointestinal involvement (n=7)
  • Patients with gastrointestinal and renal involvement (n=12)
  • Healthy control group (n=22)

The given graphs are both including and excluding the healthy control group for better inspection and they are created regarding sex and the smoking categories.

Bar Plots

Including Healthy Controls

By Sex

By Smoking

Excluding Healthy Controls

By Sex

By Smoking

Box Plots

Including Healthy Controls

By Sex

Including Jitters

By Smoking

Including Jitters

Excluding Healthy Controls

By Sex

Including Jitters

By Smoking

Including Jitters

Q-Q Plots

Including Healthy Controls

By Sex

By Smoking

Excluding Healthy Controls

By Sex

By Smoking

Violin Plot

Including Healthy Controls

By Sex

By Smoking

Excluding Healthy Controls

By Sex

By Smoking